(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    107248,       2628]
NotebookOptionsPosition[     96788,       2439]
NotebookOutlinePosition[    103418,       2591]
CellTagsIndexPosition[    103346,       2586]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["Quiz 1", "ProblemTitle"],

Cell["Problem 1", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "1"}],

Cell[TextData[{
 "What would be the output of ",
 StyleBox["Dimensions[{{a,b,c},{d,e},{f}}]", "InlineFormula"],
 "?"
}], "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[1] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[1] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{3,3}", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[1] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[1] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{3}", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[1] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[1] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{3,{3,2,1}}", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[1] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[1] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{3, Undefined}", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[1] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[1] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{3,3}", "InlineFormula"]}]]], "ProblemChoiceText"]}], 
     2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{3}", "InlineFormula"]}]]], "ProblemChoiceText"]}], 3 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{3,{3,2,1}}", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{3, Undefined}", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 2", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "2"}],

Cell["What does the following import?", "ProblemCaption"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Import", "[", 
  RowBox[{"\"\<ExampleData/elements.xls\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"\"\<Data\>\"", ",", "1", ",", "2", ",", 
     RowBox[{"3", ";;", "4"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.797778275711261*^9, 3.797778367823347*^9}, {
   3.797778484743944*^9, 3.797778565661824*^9}, {3.797778658562071*^9, 
   3.797778671194809*^9}, 3.797856222158205*^9},
 CellLabel->"In[13]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Hydrogen\"\>", ",", "1.0079345703125`"}], "}"}]], "Output",
 CellChangeTimes->{{3.797778545700783*^9, 3.797778566204671*^9}, 
   3.797778753297821*^9},
 CellLabel->"Out[13]="]
}, Open  ]],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[2] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[2] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["Sheets 1 and 2, Rows 3 and 4 "], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[2] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[2] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["Sheets 1, 2 and 3, Row 4"], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[2] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[2] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["Sheet 1, Row 2, Columns 3 and 4"], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[2] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[2] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["Sheet 1, Column 2, Rows 3 and 4"], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[2] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[2] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["Sheets 1 and 2, Rows 3 and 4 "]], "ProblemChoiceText"]}], 2 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["Sheets 1, 2 and 3, Row 4"]], "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["Sheet 1, Row 2, Columns 3 and 4"]], "ProblemChoiceText"]}], 4 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["Sheet 1, Column 2, Rows 3 and 4"]], "ProblemChoiceText"]}]}, 
    Appearance -> "Vertical", BaselinePosition -> Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 3", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "3"}],

Cell[TextData[{
 "What is the outcome of the 10-step ",
 ButtonBox["data curation hierarchy",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://blog.wolfram.com/2017/04/20/launching-the-wolfram-data-\
repository-data-publishing-that-really-works/"], None},
  ButtonNote->
   "https://blog.wolfram.com/2017/04/20/launching-the-wolfram-data-repository-\
data-publishing-that-really-works/"],
 " recommended by Stephen Wolfram?"
}], "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[3] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[3] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["All entities are represented in symbolic form."], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[3] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[3] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["Data elements are arranged in a structured way."], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[3] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[3] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["Computations for derived properties are added."], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[3] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[3] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["Data is suitable for repeated systematic computations."], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[3] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[3] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["All entities are represented in symbolic form."]], 
         "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["Data elements are arranged in a structured way."]], 
         "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["Computations for derived properties are added."]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["Data is suitable for repeated systematic computations."]], 
         "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 4", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "4"}],

Cell["\<\
How can you list the properties of a specific Wolfram Language entity?\
\>", "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[4] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[4] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "EntityValue[\[OpenCurlyDoubleQuote]Country\
\[CloseCurlyDoubleQuote],\[OpenCurlyDoubleQuote]Properties\
\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[4] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[4] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "EntityProperties[\[OpenCurlyDoubleQuote]Country\
\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[4] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[4] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Entity[\[OpenCurlyDoubleQuote]Country\
\[CloseCurlyDoubleQuote]][\[OpenCurlyDoubleQuote]Properties\
\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[4] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[4] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["All of the above"], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[4] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[4] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "EntityValue[\[OpenCurlyDoubleQuote]Country\
\[CloseCurlyDoubleQuote],\[OpenCurlyDoubleQuote]Properties\
\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]]], "ProblemChoiceText"]}], 2 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "EntityProperties[\[OpenCurlyDoubleQuote]Country\
\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]]], "ProblemChoiceText"]}], 3 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Entity[\[OpenCurlyDoubleQuote]Country\[CloseCurlyDoubleQuote]][\
\[OpenCurlyDoubleQuote]Properties\[CloseCurlyDoubleQuote]]", 
              "InlineFormula"]}]]], "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["All of the above"]], "ProblemChoiceText"]}]}, Appearance -> 
    "Vertical", BaselinePosition -> Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 5", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "5"}],

Cell["\<\
Which of the following snippets was used to create the Manipulate below?\
\>", "ProblemCaption"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`u$$ = 0.497, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`u$$], 0, 1}}, Typeset`size$$ = {39., {1., 9.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`u$56868$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`u$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`u$$, $CellContext`u$56868$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> $CellContext`u$$, 
      "Specifications" :> {{$CellContext`u$$, 0, 1}}, 
      "Options" :> {Paneled -> False}, "DefaultOptions" :> {}],
     ImageSizeCache->{222., {43., 48.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Input"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[5] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[5] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Manipulate[u,{u,0,1},Paneled\[Rule]False]", 
                  "InlineFormula"]}]], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[5] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[5] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Manipulate[u,{u,0,1},Background\[Rule]False]", 
                  "InlineFormula"]}]], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[5] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[5] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Manipulate[u,{u,0,1},Appearance->\[OpenCurlyDoubleQuote]\
Minimalist\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[5] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[5] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Manipulate[u,{u,0,1},Frame\[Rule]None]", 
                  "InlineFormula"]}]], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[5] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[5] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Manipulate[u,{u,0,1},Paneled\[Rule]False]", 
              "InlineFormula"]}]]], "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Manipulate[u,{u,0,1},Background\[Rule]False]", 
              "InlineFormula"]}]]], "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Manipulate[u,{u,0,1},Appearance->\[OpenCurlyDoubleQuote]\
Minimalist\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Manipulate[u,{u,0,1},Frame\[Rule]None]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 6", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "6"}],

Cell["\<\
Which of the following will create a popup menu to allow the user to choose \
from among the options {\[OpenCurlyDoubleQuote]Sine\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]Cosine\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]Tangent\[CloseCurlyDoubleQuote]} to select the \
function for the plot?\
\>", "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[6] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[6] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Manipulate[Plot[f[x],{x,0,2Pi}],{f,{Sine,Cosine,Tangent},\
ControlType\[Rule]PopupMenu}]", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[6] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[6] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Manipulate[Plot[f[x],{x,0,2Pi}],{f,{Sin\[Rule]\
\[OpenCurlyDoubleQuote]Sine\[CloseCurlyDoubleQuote],Cos\[Rule]\
\[OpenCurlyDoubleQuote]Cosine\[CloseCurlyDoubleQuote],Tan\[Rule]\
\[OpenCurlyDoubleQuote]Tangent\[CloseCurlyDoubleQuote]},ControlType\[Rule]\
PopupMenu}]", "InlineFormula"]}]], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[6] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[6] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Manipulate[Plot[f[x],{x,0,2Pi}],{f,{Sin\[Rule]\
\[OpenCurlyDoubleQuote]Sine\[CloseCurlyDoubleQuote],Cos\[Rule]\
\[OpenCurlyDoubleQuote]Cosine\[CloseCurlyDoubleQuote],Tan\[Rule]\
\[OpenCurlyDoubleQuote]Tangent\[CloseCurlyDoubleQuote]}}]", 
                  "InlineFormula"]}]], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[6] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[6] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Manipulate[Plot[f[x],{x,0,2Pi}],{f,{Sine,Cosine,Tangent}}]",
                   "InlineFormula"]}]], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[6] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[6] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Manipulate[Plot[f[x],{x,0,2Pi}],{f,{Sine,Cosine,Tangent},\
ControlType\[Rule]PopupMenu}]", "InlineFormula"]}]]], "ProblemChoiceText"]}], 
     2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Manipulate[Plot[f[x],{x,0,2Pi}],{f,{Sin\[Rule]\
\[OpenCurlyDoubleQuote]Sine\[CloseCurlyDoubleQuote],Cos\[Rule]\
\[OpenCurlyDoubleQuote]Cosine\[CloseCurlyDoubleQuote],Tan\[Rule]\
\[OpenCurlyDoubleQuote]Tangent\[CloseCurlyDoubleQuote]},ControlType\[Rule]\
PopupMenu}]", "InlineFormula"]}]]], "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Manipulate[Plot[f[x],{x,0,2Pi}],{f,{Sin\[Rule]\
\[OpenCurlyDoubleQuote]Sine\[CloseCurlyDoubleQuote],Cos\[Rule]\
\[OpenCurlyDoubleQuote]Cosine\[CloseCurlyDoubleQuote],Tan\[Rule]\
\[OpenCurlyDoubleQuote]Tangent\[CloseCurlyDoubleQuote]}}]", 
              "InlineFormula"]}]]], "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Manipulate[Plot[f[x],{x,0,2Pi}],{f,{Sine,Cosine,Tangent}}]", 
              "InlineFormula"]}]]], "ProblemChoiceText"]}]}, Appearance -> 
    "Vertical", BaselinePosition -> Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 7", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "7"}],

Cell["\<\
How can you customize the control placement for a Manipulate to optimize the \
appearance for touchscreens?\
\>", "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[7] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[7] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["ControlPlacement"], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[7] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[7] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["TouchscreenControlAppearance"], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[7] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[7] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["TouchscreenControlPlacement"], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[7] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[7] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["This cannot be done."], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[7] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[7] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["ControlPlacement"]], "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["TouchscreenControlAppearance"]], "ProblemChoiceText"]}], 3 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["TouchscreenControlPlacement"]], "ProblemChoiceText"]}], 4 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["This cannot be done."]], "ProblemChoiceText"]}]}, Appearance -> 
    "Vertical", BaselinePosition -> Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 8", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "8"}],

Cell["Which code snippet would produce the following output?", \
"ProblemCaption"],

Cell[BoxData[
 RowBox[{
  FrameBox["List",
   StripOnInput->False], "[", 
  RowBox[{
   FrameBox["a",
    StripOnInput->False], ",", 
   FrameBox["b",
    StripOnInput->False], ",", 
   FrameBox["c",
    StripOnInput->False]}], "]"}]], "Input"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[8] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[8] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["Map[Framed,{Head,a,b,c}]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[8] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[8] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Framed[List[Map[Framed,{a,b,c}]]]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[8] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[8] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Framed[List][[Map[Framed,{a,b,c}]]]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[8] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[8] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Map[Framed,{a,b,c},Heads->True]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[8] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[8] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Map[Framed,{Head,a,b,c}]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Framed[List[Map[Framed,{a,b,c}]]]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Framed[List][[Map[Framed,{a,b,c}]]]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Map[Framed,{a,b,c},Heads->True]", "InlineFormula"]}]]],
          "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 9", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "9"}],

Cell["Which of the following is the fastest?", "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[9] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[9] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Do[Module[{x=2.},1/x],{1000000}]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[9] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[9] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Do[Block[{x=2.},1/x],{1000000}]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[9] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[9] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Do[With[{x=2.},1/x],{1000000}]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[9] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[9] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["All take the same amount of time."], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[9] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[9] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Do[Module[{x=2.},1/x],{1000000}]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Do[Block[{x=2.},1/x],{1000000}]", "InlineFormula"]}]]],
          "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Do[With[{x=2.},1/x],{1000000}]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["All take the same amount of time."]], "ProblemChoiceText"]}]},
     Appearance -> "Vertical", BaselinePosition -> Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 10", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "10"}],

Cell["\<\
Which of the following is recommended to speed up computation?\
\>", "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[10] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[10] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 Cell[
                  BoxData[
                   StyleBox[
                    RowBox[{"Nest", "[", 
                    RowBox[{
                    RowBox[{
                    SqrtBox[
                    RowBox[{"1", "+", "#"}]], "&"}], ",", "2.", ",", "1000"}],
                     "]"}], "InlineFormula"]], 
                  CellChangeTimes -> {{3.797782023920494*^9, 
                   3.797782040441948*^9}, {3.797782076209712*^9, 
                   3.797782081207677*^9}, {3.797782125344791*^9, 
                   3.7977821293291283`*^9}, {3.797782280635898*^9, 
                   3.797782287313346*^9}, {3.797782340999778*^9, 
                   3.797782345588711*^9}}, ExpressionUUID -> 
                  "fcc24585-5cc3-4962-9c6a-5b2d714c57b1"], 
                 StyleBox[" ", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[10] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[10] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 Cell[
                  BoxData[
                   StyleBox[
                    RowBox[{
                    RowBox[{"Nest", "[", 
                    RowBox[{
                    RowBox[{
                    SqrtBox[
                    RowBox[{"1", "+", "#"}]], "&"}], ",", "2", ",", "1000"}], 
                    "]"}], "//", "N"}], "InlineFormula"]], ExpressionUUID -> 
                  "c307d74d-bd22-4c76-b81f-bd84996ddc6e"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[10] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[10] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 Cell[
                  BoxData[
                   RowBox[{"Nest", "[", 
                    RowBox[{
                    RowBox[{
                    SqrtBox[
                    RowBox[{"1", "+", "#"}]], "&"}], ",", "2", ",", "1000."}],
                     "]"}]], "Input", 
                  CellChangeTimes -> {{3.797782023920494*^9, 
                   3.797782040441948*^9}, {3.797782076209712*^9, 
                   3.797782081207677*^9}, {3.797782125344791*^9, 
                   3.7977821293291283`*^9}}, ExpressionUUID -> 
                  "683e229b-a30d-4ae9-a239-c1ad3547a965"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[10] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[10] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 Cell[
                  BoxData[
                   StyleBox[
                    RowBox[{"Nest", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Evaluate", "[", 
                    SqrtBox[
                    RowBox[{"1", "+", "#"}]], "]"}], "&"}], ",", "2", ",", 
                    "1000"}], "]"}], "InlineFormula"]], 
                  CellChangeTimes -> {{3.797782023920494*^9, 
                   3.797782040441948*^9}, {3.797782076209712*^9, 
                   3.797782081207677*^9}, {3.797782125344791*^9, 
                   3.7977821293291283`*^9}, {3.797782280635898*^9, 
                   3.797782287313346*^9}, {3.797782340999778*^9, 
                   3.797782345588711*^9}}, ExpressionUUID -> 
                  "6a9ec8aa-ce10-4b94-99ab-e24737adb95a"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[10] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[10] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             Cell[
              BoxData[
               StyleBox[
                RowBox[{"Nest", "[", 
                  RowBox[{
                    RowBox[{
                    SqrtBox[
                    RowBox[{"1", "+", "#"}]], "&"}], ",", "2.", ",", "1000"}],
                   "]"}], "InlineFormula"]], 
              CellChangeTimes -> {{3.797782023920494*^9, 
               3.797782040441948*^9}, {3.797782076209712*^9, 
               3.797782081207677*^9}, {3.797782125344791*^9, 
               3.7977821293291283`*^9}, {3.797782280635898*^9, 
               3.797782287313346*^9}, {3.797782340999778*^9, 
               3.797782345588711*^9}}, ExpressionUUID -> 
              "fcc24585-5cc3-4962-9c6a-5b2d714c57b1"], 
             StyleBox[" ", "InlineFormula"]}]]], "ProblemChoiceText"]}], 2 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             Cell[
              BoxData[
               StyleBox[
                RowBox[{
                  RowBox[{"Nest", "[", 
                    RowBox[{
                    RowBox[{
                    SqrtBox[
                    RowBox[{"1", "+", "#"}]], "&"}], ",", "2", ",", "1000"}], 
                    "]"}], "//", "N"}], "InlineFormula"]], ExpressionUUID -> 
              "c307d74d-bd22-4c76-b81f-bd84996ddc6e"]}]]], 
         "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             Cell[
              BoxData[
               RowBox[{"Nest", "[", 
                 RowBox[{
                   RowBox[{
                    SqrtBox[
                    RowBox[{"1", "+", "#"}]], "&"}], ",", "2", ",", "1000."}],
                  "]"}]], "Input", 
              CellChangeTimes -> {{3.797782023920494*^9, 
               3.797782040441948*^9}, {3.797782076209712*^9, 
               3.797782081207677*^9}, {3.797782125344791*^9, 
               3.7977821293291283`*^9}}, ExpressionUUID -> 
              "683e229b-a30d-4ae9-a239-c1ad3547a965"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             Cell[
              BoxData[
               StyleBox[
                RowBox[{"Nest", "[", 
                  RowBox[{
                    RowBox[{
                    RowBox[{"Evaluate", "[", 
                    SqrtBox[
                    RowBox[{"1", "+", "#"}]], "]"}], "&"}], ",", "2", ",", 
                    "1000"}], "]"}], "InlineFormula"]], 
              CellChangeTimes -> {{3.797782023920494*^9, 
               3.797782040441948*^9}, {3.797782076209712*^9, 
               3.797782081207677*^9}, {3.797782125344791*^9, 
               3.7977821293291283`*^9}, {3.797782280635898*^9, 
               3.797782287313346*^9}, {3.797782340999778*^9, 
               3.797782345588711*^9}}, ExpressionUUID -> 
              "6a9ec8aa-ce10-4b94-99ab-e24737adb95a"]}]]], 
         "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell[BoxData[
 DynamicModuleBox[{$CellContext`buttonLabel$$ = "Get Results"}, 
  DynamicBox[ToBoxes[
    If[
     Not[
      TrueQ[
       CurrentValue[
        EvaluationNotebook[], {TaggingRules, "QuizChecked"}, False]]], 
     MouseAppearance[
      Button[
       Style[$CellContext`buttonLabel$$, "CheckButtonText", 
        ShowStringCharacters -> False], $CellContext`buttonLabel$$ = Pane[
          Row[{" CHECKING ", 
            ProgressIndicator[Appearance -> "Percolate"]}]]; 
       MOOC`CheckAnswers[]; 
       MOOC`SetQuizChecked[True]; $CellContext`buttonLabel$$ = "Get Results"; 
       Null, BaseStyle -> "CheckButton", Evaluator -> Automatic, Method -> 
       "Queued"], "LinkHand"], 
     Module[{
      MOOCNotebook`Quiz`Private`answers$, 
       MOOCNotebook`Quiz`Private`correctAnswers$, 
       MOOCNotebook`Quiz`Private`numberOfAnswers$, 
       MOOCNotebook`Quiz`Private`corr$, 
       MOOCNotebook`Quiz`Private`percentCorrect$}, 
      MOOCNotebook`Quiz`Private`answers$ = CurrentValue[
         EvaluationNotebook[], {TaggingRules, "Answers"}]; 
      MOOCNotebook`Quiz`Private`numberOfAnswers$ = 
       Length[MOOCNotebook`Quiz`Private`answers$]; 
      MOOCNotebook`Quiz`Private`correctAnswers$ = CurrentValue[
         EvaluationNotebook[], {TaggingRules, "CorrectAnswers"}]; If[
        And[
         MemberQ[{Inherited, $Failed}, 
          MOOCNotebook`Quiz`Private`correctAnswers$], False], 
        MOOC`SetTaggingRule["CorrectAnswers", 
         Map[# -> False& , 
          Range[
           Length[MOOCNotebook`Quiz`Private`answers$]]]]]; If[
        And[
         ListQ[MOOCNotebook`Quiz`Private`correctAnswers$], 
         Length[MOOCNotebook`Quiz`Private`correctAnswers$] > 0], 
        MOOCNotebook`Quiz`Private`corr$ = Map[ToString, {
            Length[
             Select[MOOCNotebook`Quiz`Private`correctAnswers$, TrueQ[
               Part[#, 2]]& ]], 
            Length[MOOCNotebook`Quiz`Private`correctAnswers$]}]; 
        MOOCNotebook`Quiz`Private`percentCorrect$ = StringJoin[
           ToString[
            Round[100 (Length[
                Select[MOOCNotebook`Quiz`Private`correctAnswers$, TrueQ[
                  Part[#, 2]]& ]]/Length[
              MOOCNotebook`Quiz`Private`correctAnswers$])]], "%"], 
        MOOCNotebook`Quiz`Private`corr$ = {"0", 
           ToString[
            Length[MOOCNotebook`Quiz`Private`answers$]]}; 
        MOOCNotebook`Quiz`Private`percentCorrect$ = "0"]; 
      With[{MOOCNotebook`Quiz`Private`percent$ = 
         MOOCNotebook`Quiz`Private`percentCorrect$, 
         MOOCNotebook`Quiz`Private`correct$ = 
         MOOCNotebook`Quiz`Private`corr$}, 
        Grid[{{
           Style["Quiz Results", "QuizResultsText"]}, {
           Row[{
             Style["Your score is ", "ScoreText"], 
             Style[
             MOOCNotebook`Quiz`Private`percent$, "ScoreText", FontFamily -> 
              "Source Sans Pro Semibold", AutoMultiplicationSymbol -> 
              False]}]}, {
           Style[
            StringJoin["You answered ", 
             Part[MOOCNotebook`Quiz`Private`correct$, 1], " out of ", 
             Part[MOOCNotebook`Quiz`Private`correct$, 2], 
             " problems correctly.  Your quiz score has been recorded."], 
            "NumProbsCorrectText"]}, 
          If[False, {
            Row[
             Flatten[{
               Map[{
                 PaneSelector[{True -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFADiFWAmIVhQACjTJBMHgMbA9fAWI8CGNUL1ae7HHD5b9hvuI+BmYFzMLgF
hvXb9DcB3cQ2GNwygG7C6RYY1mvWXQ9UxzwY3ALD2jXaS2nsJqLdAsPykfLl
g8Ut4PxGmzJgRLiFWZBZcrC4RcZPKtNxh+NXfn1+h4F2i6SHeAJMj/1W+488
Gjzm1HaLyVST48S4RdxFPNp5n/NfZL0E3ES6W6abnGTmZOYnxy3IbuJU4NSl
l1uErYT9HPc4/sZnlt0Gu9dIbqKdWyyEfYFu+UWMmVA36dDKLSAAShug+CDW
bMedjt9p5Ra4mzR5LIH2fCPFHlq5BQb4DfidqOkmStxCbTdRwy0wAEzfPsSm
b1q7Be4mSP4n2U3m88wvUdstcDfZCAfgKh9xuOUyMw+zKC3cAgP4ymx6u4VY
N9HTLTAg6S2ZOljcAgOgNtFgcQvcTQFS2YPFLTAg6SWZMljcMgpGwSgYBaOA
fgAAMnZL2A==
                    "], "Byte", ColorSpace -> "RGB", ImageSize -> 
                    Automatic, Interleaving -> True, Magnification -> 0.5], 
                   False -> Image[CompressedData["
1:eJztl7EKwkAMhovn4OhqEYvioKC7q6Or4gNUrMWlQiuI7+fuqpOLTo4+gF6G
g4KlXpJrz6E/pEfb//INLUmuu9rNNzXHcZKGvMz9wzSO/eOiKW+WUbINo2A9
i/ZBGMSTlZAPBzI6MurOt4ZCjE8t99wVop/xGiXIAbkGQox++S6ud395vTes
HLZurrRPBZWtmyvLR2Xr5srzYdmYXPDd83y6bB2mCmDC/3tre08OG8MEFjBh
H6xX13tQ2BgmMBSTsl+xKXu43wh8JpgUtimmaTal7nDZnDpLZXNrO4VtggnC
1BWIdF0oi2mCTWVy2FwmhW2KiWFjexOlB3GZ2L6Qxeb0YE7vtdH3bc05tua6
X/6i5tg8f9Fze5a/rHOKko1zWaVKlSr9sz4GxjG4
                    "], "Byte", 
                    ColorSpace -> "RGB", ImageSize -> Automatic, Interleaving -> 
                    True, Magnification -> 0.5]}, 
                  Part[#, 2]], 
                 Spacer[3], 
                 Style[
                  Part[#, 1], "NumProbsCorrectText"], 
                 Spacer[24]}& , 
                MOOCNotebook`Quiz`Private`correctAnswers$]}]]}, Nothing], 
          If[True, {
            Style[
             StringJoin[
             "In order to be eligible for a certificate of course completion, \
you must score ", 
              ToString[60], "% on all course quizzes."], 
             "NumProbsCorrectText"]}, Nothing], {
           If[
            StringMatchQ[MOOCNotebook`Quiz`Private`percent$, "100%"], 
            Nothing[], 
            Column[{
              Style["You can retake this quiz!", "NumProbsCorrectText"], 
              Style[
              "Select different responses to the quiz problems and get new \
results.", "NumProbsCorrectText"]}, Frame -> None, FrameStyle -> 
             Thickness[0]]]}}, 
         Spacings -> {"Rows" -> {3, 1, 2, 1, 2, 3}, "Columns" -> {3}}]]]], 
    StandardForm],
   ImageSizeCache->{160., {12., 28.}}],
  DynamicModuleValues:>{},
  Initialization:>(
   MOOC`CheckAnswers[] := 
    Module[{MOOCNotebook`Quiz`Private`answers$, 
       MOOCNotebook`Quiz`Private`correctAnswers$, 
       MOOCNotebook`Quiz`Private`results$, MOOCNotebook`Quiz`Private`tags$, 
       MOOCNotebook`Quiz`Private`success$, MOOCNotebook`Quiz`Private`wid$ = 
       ToString[$WolframID], MOOCNotebook`Quiz`Private`wuuid$ = 
       ToString[$WolframUUID]}, 
      MOOCNotebook`Quiz`Private`answers$ = CurrentValue[
         EvaluationNotebook[], {TaggingRules, "Answers"}]; If[
        ListQ[MOOCNotebook`Quiz`Private`answers$], 
        MOOCNotebook`Quiz`Private`answers$ = ExportString[
           Association[MOOCNotebook`Quiz`Private`answers$], "RawJSON"]; 
        With[{MOOCNotebook`Quiz`Private`id$ = ToString[$WolframID], 
           MOOCNotebook`Quiz`Private`uuid$ = ToString[$WolframUUID]}, 
          MOOCNotebook`Quiz`Private`results$ = URLExecute[
            CloudObject[
            "https://www.wolframcloud.com/obj/online-courses/api/daily-study-\
group/get/quiz-verification/201"], {
            "userAnswers" -> MOOCNotebook`Quiz`Private`answers$, "wid" -> 
             MOOCNotebook`Quiz`Private`id$, "wuuid" -> 
             MOOCNotebook`Quiz`Private`uuid$}]]; 
        MOOCNotebook`Quiz`Private`success$ = If[
           StringQ[MOOCNotebook`Quiz`Private`results$], 
           ToExpression[MOOCNotebook`Quiz`Private`results$], $Failed]; 
        MOOCNotebook`Quiz`Private`success$ = SortBy[
           If[
            AssociationQ[MOOCNotebook`Quiz`Private`success$], 
            Normal[MOOCNotebook`Quiz`Private`success$], 
            MOOCNotebook`Quiz`Private`success$], ToExpression[
            First[#]]& ]; If[
          ListQ[MOOCNotebook`Quiz`Private`success$], 
          MOOCNotebook`Quiz`Private`tags$ = MOOC`ResetOptions[
             CurrentValue[
              EvaluationNotebook[], TaggingRules], "CorrectAnswers" -> 
             Normal[MOOCNotebook`Quiz`Private`success$]]; If[
            ListQ[MOOCNotebook`Quiz`Private`tags$], 
            SetOptions[
             EvaluationNotebook[], TaggingRules -> 
             MOOCNotebook`Quiz`Private`tags$]]; 
          With[{MOOCNotebook`Quiz`Private`id$ = ToString[$WolframID], 
             MOOCNotebook`Quiz`Private`uuid$ = ToString[$WolframUUID]}, 
            If[
             And[
              StringQ[
              "https://www.wolframcloud.com/obj/online-courses/daily-study-\
group/api/log/quiz"], 
              StringMatchQ[
              "https://www.wolframcloud.com/obj/online-courses/daily-study-\
group/api/log/quiz", "http*"]], 
             URLExecute[
              CloudObject[
              "https://www.wolframcloud.com/obj/online-courses/daily-study-\
group/api/log/quiz"], {
              "id" -> MOOCNotebook`Quiz`Private`id$, "uuid" -> 
               MOOCNotebook`Quiz`Private`uuid$, "quiznum" -> ToString[201], 
               "correctpercent" -> ToString[
                 Round[Divide[
                    Count[
                    MOOCNotebook`Quiz`Private`success$, Blank[] -> True], 
                    Length[MOOCNotebook`Quiz`Private`success$]] 100]], 
               "answers" -> ToString[MOOCNotebook`Quiz`Private`answers$]}]]]; 
          True, $Failed], $Failed]]; MOOC`SetQuizChecked[
      Pattern[MOOCNotebook`Quiz`Private`val, 
       Blank[]]] := 
    MOOC`SetTaggingRule["QuizChecked", MOOCNotebook`Quiz`Private`val]; 
   MOOC`SetTaggingRule[
      Pattern[MOOCNotebook`Quiz`Private`tag, 
       Blank[]], 
      Pattern[MOOCNotebook`Quiz`Private`val, 
       Blank[]]] := 
    Module[{MOOCNotebook`Quiz`Private`tags}, 
      MOOCNotebook`Quiz`Private`tags = MOOC`ResetOptions[
         CurrentValue[
          EvaluationNotebook[], TaggingRules], MOOCNotebook`Quiz`Private`tag -> 
         MOOCNotebook`Quiz`Private`val]; If[
        ListQ[MOOCNotebook`Quiz`Private`tags], 
        SetOptions[
         EvaluationNotebook[], TaggingRules -> 
         MOOCNotebook`Quiz`Private`tags]]]; MOOC`ResetOptions[
      Pattern[MOOCNotebook`Quiz`Private`h, 
       Blank[]][
       Pattern[MOOCNotebook`Quiz`Private`stuff, 
        BlankNullSequence[]], 
       PatternTest[
        Pattern[MOOCNotebook`Quiz`Private`opts, 
         BlankNullSequence[]], OptionQ]], 
      PatternTest[
       Pattern[MOOCNotebook`Quiz`Private`newopts, 
        BlankSequence[]], OptionQ]] := 
    MOOCNotebook`Quiz`Private`h[MOOCNotebook`Quiz`Private`stuff, 
      Apply[Sequence, 
       Flatten[{MOOCNotebook`Quiz`Private`newopts}]], 
      Apply[Sequence, 
       DeleteCases[{MOOCNotebook`Quiz`Private`opts}, 
        Blank[][
         Apply[Alternatives, 
          Part[
           Flatten[{MOOCNotebook`Quiz`Private`newopts}], All, 1]], 
         Blank[]]]]]; MOOC`ResetOptions[
      Pattern[MOOCNotebook`Quiz`Private`h, 
       Blank[]][
       Pattern[MOOCNotebook`Quiz`Private`stuff, 
        BlankNullSequence[]]], 
      PatternTest[
       Pattern[MOOCNotebook`Quiz`Private`newopts, 
        BlankSequence[]], OptionQ]] := 
    MOOCNotebook`Quiz`Private`h[
     MOOCNotebook`Quiz`Private`stuff, 
      MOOCNotebook`Quiz`Private`newopts])]], "ResultsGrid"],

Cell[TextData[StyleBox["", "SmallText",
 FontColor->GrayLevel[0.6]]], "Text",
 ShowCellBracket->False,
 CellTags->"version"]
},
WindowSize->{775, 872},
WindowMargins->{{Automatic, 418}, {49, Automatic}},
ShowCellBracket->False,
TaggingRules->{
 "QuizNumber" -> 201, "QuizChecked" -> False, 
  "Answers" -> {
   "1" -> 0, "10" -> 0, "2" -> 0, "3" -> 0, "4" -> 0, "5" -> 0, "6" -> 0, "7" -> 
    0, "8" -> 0, "9" -> 0}},
FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Text"], FontFamily -> "Source Sans Pro"], 
   Cell[
    StyleData["ProblemTitle", StyleDefinitions -> StyleData["Text"]], 
    Editable -> False, Deletable -> False, 
    CellMargins -> {{70, Inherited}, {15, 80}}, FontSize -> 40, FontColor -> 
    RGBColor[0.9882352941176471, 0.43137254901960786`, 0.12941176470588237`]], 
   Cell[
    StyleData["ProblemSection"], Editable -> False, Deletable -> False, 
    CellDingbat -> Dynamic[
      If[
       TrueQ[
        CurrentValue[
         EvaluationNotebook[], {TaggingRules, "QuizChecked"}, False]], 
       If[
        TrueQ[
         CurrentValue[
          EvaluationNotebook[], {TaggingRules, "CorrectAnswers", 
           CurrentValue[
            EvaluationCell[], {TaggingRules, "QuestionNum"}]}]], 
        Cell[
         BoxData[
          GraphicsBox[
           TagBox[
            RasterBox[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAOiFWAmIVhQACjTJBMHgMbA9fAWI8CGNUL1ae7HHD5b9hvuI+BmYFzMLgF
hvXb9DcB3cQ2GNwygG7C6RYY1mvWXQ9UxzwY3ALD2jXaS2nsJqLdAsPykfLl
g8Ut4PxGmzJgRLiFWZBZcrC4RcZPKtNxh+NXfn1+h4F2i6SHeAJMj/1W+488
Gjzm1HaLyVST48S4RdxFPNp5n/NfZL0E3ES6W6abnGTmZOYnxy3IbuJU4NSl
l1uErYT9HPc4/sZnlt0Gu9dIbqKdWyyEfYFu+UWMmVA36dDKLSAAShug+CDW
bMedjt9p5Ra4mzR5LIH2fCPFHlq5BQb4DfidqOkmStxCbTdRwy0wAEzfPsSm
b1q7Be4mSP4n2U3m88wvUdstcDfZCAfgKh9xuOUyMw+zKC3cAgP4ymx6u4VY
N9HTLTAg6S2ZOljcAgOgNtFgcQvcTQFS2YPFLTAg6SWZQku3AADRKkvO
             "], {{0,
              30}, {36, 0}}, {0, 255}, ColorFunction -> RGBColor], 
            BoxForm`ImageTag[
            "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> 
             0.5], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
           ImageSize -> Magnification[0.5], ImageSizeRaw -> {36, 30}, 
           PlotRange -> {{0, 36}, {0, 30}}]]], 
        Cell[
         BoxData[
          GraphicsBox[
           TagBox[
            RasterBox[CompressedData["
1:eJzF1zELgkAUAGDpGhpbk0iMhoLaWxtbjX6AkkmLgQbR/2tvramlpsZ+QPmg
A6FD77136sEp6rv3Dcp7pxvsvW3Lsqy0kx08/7hIEv+06mYX6zjdRXG4WcaH
MAqTeSCym4PfbFv/YyLE7NyzL64QI8Vj1IAckGssxLQs7mo7j7cz/MCZY+vm
ysfJSbV1c6niqLZurqI4rI3JBe+9KE7X1jHlBBO+33vfeXFsjAkWmLAOzjfb
eVJsjAmGNCnrpU1Zw31HEGfCpNimTNM2pe5wbU6dpdrc2k6xTZgwMHUFZr4u
1GWasKkmx+aaFNuUibGxvYnSg7gmti+obE4P5vTeJvp+U/ucpvZ1ZfFV7WOL
4qvet6vi6/pPkaOu/7IvXXgxrg==
             "], {{0, 30}, {30, 0}}, {0, 255}, 
             ColorFunction -> RGBColor], 
            BoxForm`ImageTag[
            "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> 
             0.5], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
           ImageSize -> Magnification[0.5], ImageSizeRaw -> {30, 30}, 
           PlotRange -> {{0, 30}, {0, 30}}]]]], ""]], 
    CellMargins -> {{70, Inherited}, {8, 15}}, CounterIncrements -> 
    "ProblemSection", FontFamily -> "Source Sans Pro Semibold", FontSize -> 
    18, FontVariations -> {"CapsType" -> "AllCaps"}], 
   Cell[
    StyleData["ProblemSectionNoFeedback"], Editable -> False, Deletable -> 
    False, CellMargins -> {{70, Inherited}, {8, 15}}, CounterIncrements -> 
    "ProblemSection", FontFamily -> "Source Sans Pro Semibold", FontSize -> 
    18, FontVariations -> {"CapsType" -> "AllCaps"}], 
   Cell[
    StyleData["ProblemCaption", StyleDefinitions -> StyleData["Text"]], 
    Editable -> False, Deletable -> False, 
    CellMargins -> {{70, Inherited}, {15, 7}}, FontSize -> 21, FontColor -> 
    GrayLevel[0]], 
   Cell[
    StyleData["ProblemChoiceText", StyleDefinitions -> StyleData["Text"]], 
    Editable -> False, Deletable -> False, ShowStringCharacters -> False, 
    FontSize -> 18, FontColor -> GrayLevel[0]], 
   Cell[
    StyleData["ProblemChoiceGrid"], Editable -> False, Deletable -> False, 
    CellMargins -> {{70, Inherited}, {45, 0}}], 
   Cell[
    StyleData["CheckButton"], 
    CellMargins -> {{70, Inherited}, {Inherited, Inherited}}, 
    ButtonBoxOptions -> {
     Background -> 
      RGBColor[0.9882352941176471, 0.43137254901960786`, 
        0.12941176470588237`], ImageSize -> {160, 40}}], 
   Cell[
    StyleData["CheckButtonText"], FontFamily -> "Source Sans Pro Semibold", 
    FontSize -> 18, FontVariations -> {"CapsType" -> "AllCaps"}, FontColor -> 
    GrayLevel[1]], 
   Cell[
    StyleData["QuizResultsText"], FontFamily -> "Source Sans Pro Semibold", 
    FontSize -> 20, FontVariations -> {"CapsType" -> "AllCaps"}, FontColor -> 
    RGBColor[0.29411764705882354`, 0.4, 0.5372549019607843]], 
   Cell[
    StyleData["ScoreText"], FontFamily -> "Source Sans Pro", FontSize -> 22, 
    FontColor -> GrayLevel[0]], 
   Cell[
    StyleData["ResultsGrid"], Editable -> False, Deletable -> False, 
    CellMargins -> {{70, Inherited}, {70, 0}}, ShowStringCharacters -> False, 
    GridBoxOptions -> {FrameStyle -> Directive[
        Thickness[Large], 
        RGBColor[0.4549019607843137, 0.6196078431372549, 0.7843137254901961]],
       GridBoxAlignment -> {"Columns" -> {{Left}}}, 
      GridBoxBackground -> {"Columns" -> {{
           RGBColor[
           0.9490196078431372, 0.9647058823529412, 0.9725490196078431]}}}, 
      GridBoxDividers -> {
       "Columns" -> {True, {False}, True}, "Rows" -> {True, {False}, True}}, 
      GridBoxItemSize -> {"Columns" -> {{36}}}, 
      GridBoxSpacings -> {"Columns" -> {Automatic, {
           Offset[0.5599999999999999]}, Automatic}, "Rows" -> {Automatic, {
           Offset[0.4]}, Automatic}}}], 
   Cell[
    StyleData["NumProbsCorrectText"], FontFamily -> "Source Sans Pro", 
    FontSize -> 17], 
   Cell[
    StyleData["InlineFormula"], ShowStringCharacters -> True, 
    MenuSortingValue -> 10000]}, Visible -> False, 
  TaggingRules -> {"QuizChecked" -> False}, FrontEndVersion -> 
  "12.2 for Mac OS X x86 (64-bit) (December 12, 2020)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "version"->{
  Cell[96660, 2434, 124, 3, 70, "Text",ExpressionUUID->"ec98082a-fcd1-4a5d-9f73-0f729c71df93",
   CellTags->"version"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"version", 103202, 2580}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 30, 0, 70, "ProblemTitle",ExpressionUUID->"ea3c6f71-f559-4637-8430-0f90d61b0c3d"],
Cell[591, 22, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"d07a5624-37ea-491e-90fb-4287d2f85acb"],
Cell[678, 25, 138, 4, 70, "ProblemCaption",ExpressionUUID->"d3b9172d-8f83-45c8-a9d5-a4bb85ed1dc8"],
Cell[819, 31, 7346, 190, 70, "ProblemChoiceGrid",ExpressionUUID->"691281fc-8e6a-4f92-92d9-0ba9574d313c"],
Cell[8168, 223, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"140abe76-b6c0-41cb-8dbf-ec80eafe5d98"],
Cell[8255, 226, 57, 0, 70, "ProblemCaption",ExpressionUUID->"dfc2475c-d919-41a5-8b17-eb66b52cecb5"],
Cell[CellGroupData[{
Cell[8337, 230, 432, 9, 70, "Input",ExpressionUUID->"2d39279b-a86b-41be-8186-7d8ab385e436"],
Cell[8772, 241, 219, 5, 70, "Output",ExpressionUUID->"df9113c1-5b14-43c8-a142-7f526d29e13c"]
}, Open  ]],
Cell[9006, 249, 6938, 172, 70, "ProblemChoiceGrid",ExpressionUUID->"3345c6bb-b756-44ce-be35-a5d9136d4ad3"],
Cell[15947, 423, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"d608966c-afa0-4cb9-9567-70a98811ba58"],
Cell[16034, 426, 456, 11, 70, "ProblemCaption",ExpressionUUID->"57013abc-d44b-4685-8007-f734720391aa"],
Cell[16493, 439, 7122, 174, 70, "ProblemChoiceGrid",ExpressionUUID->"bdc38d5f-72af-4c88-857a-91eac98b07c9"],
Cell[23618, 615, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"68dca423-151b-490c-b3eb-78a84431b603"],
Cell[23705, 618, 104, 2, 70, "ProblemCaption",ExpressionUUID->"79021ddd-0041-4362-a6c2-d3c59d32fd87"],
Cell[23812, 622, 7919, 200, 70, "ProblemChoiceGrid",ExpressionUUID->"c556bd6c-9282-46fa-94ab-43fce0246bdf"],
Cell[31734, 824, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"f4c32f22-9e96-43fd-8ba5-ec3cf0e027c9"],
Cell[31821, 827, 106, 2, 70, "ProblemCaption",ExpressionUUID->"1ffa9d1a-9bef-430d-9c08-7d2fe1db9d29"],
Cell[31930, 831, 1445, 30, 70, "Input",ExpressionUUID->"5b802fb0-5ce6-4bfd-bad1-3388bbc19b3d"],
Cell[33378, 863, 7915, 203, 70, "ProblemChoiceGrid",ExpressionUUID->"cb7c83a9-9352-4626-8b04-3c4a952b8d3e"],
Cell[41296, 1068, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"5911a0e4-94a3-4a6f-b663-7ea38249227c"],
Cell[41383, 1071, 342, 6, 70, "ProblemCaption",ExpressionUUID->"8b083071-8d58-4f8c-9de9-f8ca21731adb"],
Cell[41728, 1079, 8742, 215, 70, "ProblemChoiceGrid",ExpressionUUID->"bf935ef0-6f9f-47e7-a70e-b81329658b90"],
Cell[50473, 1296, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"f5201132-2581-472b-81ae-d71f6266eea0"],
Cell[50560, 1299, 141, 3, 70, "ProblemCaption",ExpressionUUID->"a4131cf9-4350-44ed-9d74-2fc7098fb256"],
Cell[50704, 1304, 6890, 172, 70, "ProblemChoiceGrid",ExpressionUUID->"d108dcfd-b4fc-4c5a-b2b5-eb32bd977319"],
Cell[57597, 1478, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"62dd1fd0-80fc-4812-942d-3cdcdb328620"],
Cell[57684, 1481, 82, 1, 70, "ProblemCaption",ExpressionUUID->"a98a5504-7d03-44da-918d-4202e404161f"],
Cell[57769, 1484, 244, 10, 70, "Input",ExpressionUUID->"87d2aa31-597e-454c-beaa-d4dd725ef2a7"],
Cell[58016, 1496, 7616, 195, 70, "ProblemChoiceGrid",ExpressionUUID->"485e4a0b-6428-472d-8b2d-c69d3c9a1853"],
Cell[65635, 1693, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"907ac6b7-5eed-4c06-92c5-4f451d7d05ab"],
Cell[65722, 1696, 64, 0, 70, "ProblemCaption",ExpressionUUID->"88039cde-7fad-430d-9180-199f51462716"],
Cell[65789, 1698, 7460, 189, 70, "ProblemChoiceGrid",ExpressionUUID->"adef73a4-ba41-4770-937e-2d70cdbb6a9f"],
Cell[73252, 1889, 86, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"f7dad8f6-3638-4d6d-b560-1f766d35f5dd"],
Cell[73341, 1892, 96, 2, 70, "ProblemCaption",ExpressionUUID->"59ed2979-7852-4a0a-95ff-e7c3f21daf9d"],
Cell[73440, 1896, 12239, 298, 70, "ProblemChoiceGrid",ExpressionUUID->"e99c0bf5-8c69-4528-b1b1-6b8d270a3971"],
Cell[85682, 2196, 10975, 236, 70, "ResultsGrid",ExpressionUUID->"99a81198-2b09-47ff-9cc6-774f48465845"],
Cell[96660, 2434, 124, 3, 70, "Text",ExpressionUUID->"ec98082a-fcd1-4a5d-9f73-0f729c71df93",
 CellTags->"version"]
}
]
*)

(* End of internal cache information *)
